home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / arexx / cg / chartfont.rexx < prev    next >
OS/2 REXX Batch file  |  1996-03-13  |  4KB  |  139 lines
  1. /* ChartFont.rexx -- Make An Alt Character Chart. */
  2. /* By Bob Caron © 1994 NewTek, Inc.               */
  3.  
  4. call addlib(CG_AREXX,0)
  5.  
  6. location=REQ_file("Choose a postscript font","","toaster:PSFonts")
  7.  
  8. if right(location,1)="/" && right(location,1)=":" then do
  9.    call REQ_TELL("You have to choose a font.")
  10.    call REMLIB(CG_AREXX)
  11.    exit
  12.    end
  13.  
  14. if exists(location)=0 then do
  15.    call REQ_TELL("Error... I Can't Load THAT!")
  16.    call REMLIB(CG_AREXX)
  17.    exit
  18.    end
  19.  
  20. call choppath(location)
  21. fontname=filenam
  22. firstfont=get_font(FIRST)
  23.  
  24. do until (fontnsize=firstfont)
  25.    fontnsize=get_font(NEXT)
  26.    option="NEXT"
  27.    if lastpos(',',fontnsize)~=0 then do
  28.       sizefnt=right(fontnsize,(length(fontnsize)-lastpos(',',fontnsize,length(fontnsize)-1)))
  29.       font=left(fontnsize,(lastpos(',',fontnsize,length(fontnsize))-1))
  30.       call choppath(font)
  31.       if fontname=filenam & sizefnt=40 then do
  32.          call set_char(FACE,fontname,40)
  33.          call skipload
  34.          end
  35.       end
  36.    end
  37.  
  38. if loadfont(location,40)=0 then do
  39.    call req_tell("Error Loading:",location,"[In size: 40]")
  40.    call remlib(CGAREXX)
  41.    call req_tell("I can't continue")
  42.    exit
  43.    end
  44.  
  45. skipload: /* This is so fugly I can't even say how fugly this is!!! But
  46.              I can't do this without distrations today. Argh! */
  47.  
  48. page = GET_PAGE()
  49.    call SET_PAGE(NEXT)
  50.    if page_is_blank() then do
  51.        call SET_PAGE(TYPE,Scroll)
  52.        call GenChart()
  53.        end
  54.    else do
  55.       call KILLPAGE(page)
  56.       call SET_PAGE(TYPE,Scroll)
  57.       if page_is_blank() then
  58.          call GenChart()
  59.       end
  60.    page = GET_PAGE()
  61. exit
  62.  
  63. GenChart: /* This is an ugly method... But... I dont Care! :P */
  64.  
  65. call makeline()
  66. call set_line(FIRST)
  67. call makeline("Alt Chart:")
  68. call pickline()
  69. call set_line(JUST,Center)
  70. call makeline()
  71.  
  72. call makeline("ALT-1=¹  ALT-2=²  ALT-3=³")
  73. call makeline("ALT-4=¢  ALT-5=¢  ALT-6=½")
  74. call makeline("ALT-7=¾  ALT-8=·  ALT-9=«")
  75. call makeline("ALT-0=»")
  76. call makeline()
  77.  
  78. call makeline("ALT-a=æ  ALT-b=º  ALT-c=ç")
  79. call makeline("ALT-d=ð  ALT-e=©  ALT-i=¡")
  80. call makeline("ALT-l=£  ALT-n=­  ALT-o=ø")
  81. call makeline("ALT-p=¶  ALT-q=å  ALT-r=®")
  82. call makeline("ALT-s=ß  ALT-t=þ  ALT-u=µ")
  83. call makeline("ALT-v=ª  ALT-w=°  ALT-x=×")
  84. call makeline("ALT-y=¤  ALT-z=±")
  85. call makeline()
  86. call makeline("ALT-A=Æ  ALT-B=º  ALT-C=Ç")
  87. call makeline("ALT-D=Р ALT-E=©  ALT-I=¦")
  88. call makeline("ALT-L=£  ALT-M=¿  ALT-N=¯")
  89. call makeline("ALT-O=Ø  ALT-P=¶  ALT-Q=Å")
  90. call makeline("ALT-R=®  ALT-S=§  ALT-T=Þ")
  91. call makeline("ALT-U=µ  ALT-V=ª  ALT-W=°")
  92. call makeline("ALT-X=÷  ALT-Y=¥  ALT-Z=¬")
  93. call makeline("")
  94. call makeline("Dead keys:")
  95. call makeline("")
  96. call makeline("ALT-f,a=á  ALT-g,a=à  ALT-h,a=â")
  97. call makeline("ALT-j,a=ã  ALT-k,a=ä")
  98. call makeline("")
  99. call makeline("ALT-f,e=é  ALT-g,e=è  ALT-h,e=é")
  100. call makeline("ALT-k,e=ë")
  101. call makeline("")
  102. call makeline("ALT-f,i=í  ALT-g,i=ì  ALT-h,i=î")
  103. call makeline("ALT-k,i=ï")
  104. call makeline("")
  105. call makeline("ALT-f,o=ó  ALT-g,o=ò  ALT-h,o=ô")
  106. call makeline("ALT-j,o=õ  ALT-k,o=ö")
  107. call makeline("")
  108. call makeline("ALT-f,u=ú  ALT-g,u=ù  ALT-h,u=û")
  109. call makeline("ALT-k,u=ü")
  110. call makeline("")
  111. call makeline("ALT-k,y=ÿ")
  112.  
  113.  
  114. return
  115.  
  116. page_is_blank:
  117.   page_size=GET_PAGE(SIZE)
  118.   line_size=GET_LINE(SIZE)
  119.   if (page_size = 0 | page_size = 1) & line_size = 0 then
  120.      return 1
  121.   else
  122.      return 0
  123.  
  124.  
  125. choppath:
  126. parse arg file
  127.  
  128. if lastpos('/',file,length(file)-1)~=0 then do
  129.    filenam=right(file,(length(file)-lastpos('/',file,length(file)-1)))
  130.    path=left(file,(lastpos('/',file,length(file))-1))
  131.    end
  132. else do
  133.    filenam=right(file,(length(file)-lastpos(':',file,length(file)-1)))
  134.    path=left(file,(lastpos(':',file,length(file))))
  135.    end
  136.  
  137. return
  138.  
  139.